home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1998 #4
/
Amiga Plus CD - 1998 - No. 4.iso
/
pd
/
netz
/
callman
/
arexx
/
adm2callman.adm
next >
Wrap
Text File
|
1998-02-23
|
3KB
|
115 lines
/* $VER: CallMan-Export.adm 1.1 (23.02.98)
von Alexander 'Sascha' Fichtner
(basierend auf dem "Ex-Import.asm" Modul
von Bernd Stange)
Exportiert Datensätze von ADM ins CallMan-Format
Änderungen:
===========
1.0: - erste Version
1.1: - Telefonnummern werden jetzt statt in eine einzelne
Zeile in mehrere Zeilen gespeichert
"CallMan" findet man im Aminet, Verzeichnis "comm/misc".
*/
/***************************************************************/
Ver = 'CallMan-Export.adm 1.1'
ADDRESS 'ADM.1'
OPTIONS RESULTS
IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
EXIT 10
IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
EXIT 10
IF ~SHOW(PORTS,'ADM.1') THEN DO
SAY 'Bitte erst AdressMaster starten !'
EXIT
END
Flag = 'rtez_flags = ezreqf_centertext'
NL = "0a"x
Titel = Ver
Gadget = 'Exportieren|Abbruch'
Reqtext = 'A C H T U N G :',
|| NL || 'In dieser Version werden alle Einträge',
|| NL || 'aus dem Bemerkungs-Feld ignoriert !'
Auswahl = rtezrequest(Reqtext,Gadget,Titel,Flag)
IF Auswahl = 0 THEN CALL Ende
IF Auswahl = 1 THEN CALL Exportieren
Exportieren:
ADDRINMEM
numadr = RESULT
IF numadr = 0 THEN DO
call rtezrequest('Keine Datensätze gefunden !', "OK")
EXIT
END
filename = rtfilerequest("","","Export-Datei speichern","Exportieren!",'rtfi_flags=freqf_save',)
IF ~OPEN(datei,filename,"W") THEN DO
SAY "Kann die Datei nicht öffnen!"
EXIT
END
/* Zeile = WriteLn(datei,'Importdatei')*/
ADDRINMEM
numadr = RESULT
ACTIVATEFIRST
DO FOR numAdr
GETADDRESS ADM
Zeile = WriteLn(datei,adm.SALUTATION || NL || adm.LASTNAME || NL || ,
adm.FIRSTNAME || NL || adm.TITLE || NL || ,
adm.COMPANY || NL ||,
adm.ADDRESS1 || NL || adm.ADDRESS2 || NL || ,
adm.POSTCODE || NL || adm.CITY || NL || ,
adm.COUNTRY || NL || adm.BIRTHDAY)
IF INDEX(adm.TELEPHONE,'|') = 0 THEN DO
Zeile = WriteLn(datei, adm.TELEPHONE || NL || NL || NL)
END
ELSE DO
Rest = adm.TELEPHONE
DO i = 1 to 4
IF INDEX(Rest, '|') = 0 THEN DO
Zeile = WriteLn(datei, Rest)
Rest = ""
END
ELSE DO
Zeile = WriteLn(datei, LEFT(Rest, INDEX(Rest, '|')-1 ) )
Rest = SUBSTR(Rest, INDEX(Rest, '|')+1 )
END
END
END
Zeile = WriteLn(datei,adm.FAX || NL || ,
adm.EMAIL1 || NL || adm.EMAIL2 || NL || adm.ID)
ACTIVATENEXT
END
call rtezrequest('Es wurden "' || numadr || '" Datensätze in die Datei "' || filename || '" exportiert !', "OK")
CALL Ende
Ende:
CALL CLOSE(Datei)
EXIT